home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q0919.dms
/
q0919.adf
/
DosMan.rx
< prev
next >
Wrap
Text File
|
1997-04-10
|
560b
|
29 lines
/* DosMan for REXX interface */
/* by Peter Bagnato and John Collett */
parse upper arg infile
if infile = '' then do
say 'Input page you wish to read:'
pull infile
infile='man/'infile
end
if ~open('textfile',infile,'read') then do
say 'That file or path does not exist...'
exit 20
end
do until eof('textfile')
i=20 /* Edit this value to make fewer or more lines appear in CLI */
do until i = 0
line=readln('textfile')
say line
i=i-1
end
say 'continue reading? y/n'
pull ans
if ans='n' then
exit 20
endif
end
exit 0